00100		ENTRY LOOP
00200	LOOP:	0
00300		MOVE 1,@0(16)
00400		MOVE 2,5(16)
00500		SOJ 2,
00600	IDOL:	MOVE 3,2
00700		ADD 3,1
00800		MOVE 4,3
00900		ADD 3,@3(16)
01000		ADD 4,@4(16)
01100		MOVE 5,@3
01200		MOVEM 5,@4
01300		ADD 1,@2(16)
01400		CAMG 1,@1(16)
01500		JRST IDOL
01600		JRA 16,6(16)
01700		END